VERSION 5.00
Begin VB.Form Mirror 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Shut Control 2.0"
   ClientHeight    =   1290
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3240
   ClipControls    =   0   'False
   Icon            =   "Mirror.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   1290
   ScaleWidth      =   3240
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Mirror"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Paint()
  If Me.WindowState = vbNormal Then
        Principal.Show
  ElseIf Me.WindowState = vbMinimized Then
        Principal.Hide
  End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Me.Visible = False
    Principal.Visible = False
    Set Mirror = Nothing
    DoEvents
    DoEvents
       Unload Principal
    End
End Sub

Private Sub Form_Resize()
Call Form_Paint
End Sub
